home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / corewar.zip / GUNM3.PRG < prev    next >
Text File  |  1991-05-11  |  440b  |  26 lines
  1. BGN GunMaker_]I[
  2.         MOV I 152
  3.         SPL 151
  4. H       ADD #Grid_Size*4+20 B
  5.         MOV C @B
  6.         ADD #1 B
  7.         MOV D @B
  8.         ADD #1 B
  9.         MOV E @B
  10.         ADD #1 B
  11.         MOV F @B
  12.         ADD #1 B
  13.         RND G #10
  14.         MOV G @B
  15.         SUB #4 B
  16.         SPL @B
  17.         JMP H
  18. B       DAT #5
  19. C       ADD #7 4
  20. D       JWN -1 @3
  21. E       MOV #0 @2
  22. F       JMP -3
  23. G       DAT #0
  24. I       JMP 0
  25. END
  26.